BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / AMUG Info / Apple Lic. / ResEdit 2.1.1 Examples.sit / ResEdit 2.1.1 Examples / PExamples / Source / XXXX.Edit.p < prev
MacBinary | 1991-07-10 | 10.9 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: XXXX.Edit.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Jul 10 13:00:00 1991, modified Wed Jul 10 13:00:00 1991, creator 'MPS ', type ASCII, 10410 bytes "XXXX.Edit.p" , at 0x292a 478 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 58 58 58 58 2e 45 | 64 69 74 2e 70 00 00 00 |..XXXX.E|dit.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 28 aa 00 | 00 01 de a4 a0 ed 90 a4 |.....(..|........|
|00000060| a0 ed 90 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dc f4 00 00 |........|........|
|00000080| 7b 0d 46 69 6c 65 20 52 | 65 73 58 58 58 58 45 64 |{.File R|esXXXXEd|
|00000090| 2e 70 0d 0d 43 6f 70 79 | 72 69 67 68 74 20 41 70 |.p..Copy|right Ap|
|000000a0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000000b0| 63 2e 20 31 39 38 35 2d | 31 39 39 30 0d 41 6c 6c |c. 1985-|1990.All|
|000000c0| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|000000d0| 2e 0d 7d 0d 0d 55 4e 49 | 54 20 52 65 73 58 58 58 |..}..UNI|T ResXXX|
|000000e0| 58 65 64 3b 0d 7b 58 58 | 58 58 20 45 64 69 74 6f |Xed;.{XX|XX Edito|
|000000f0| 72 20 66 6f 72 20 52 65 | 73 45 64 69 74 7d 0d 0d |r for Re|sEdit}..|
|00000100| 49 4e 54 45 52 46 41 43 | 45 0d 0d 09 55 53 45 53 |INTERFAC|E...USES|
|00000110| 09 4d 65 6d 74 79 70 65 | 73 2c 20 51 75 69 63 6b |.Memtype|s, Quick|
|00000120| 44 72 61 77 2c 20 4f 53 | 49 6e 74 66 2c 20 54 6f |Draw, OS|Intf, To|
|00000130| 6f 6c 49 6e 74 66 2c 20 | 50 61 63 6b 49 6e 74 66 |olIntf, |PackIntf|
|00000140| 2c 0d 09 09 09 09 52 65 | 73 45 64 3b 0d 0d 09 09 |,.....Re|sEd;....|
|00000150| 7b 24 52 2d 7d 20 7b 52 | 61 6e 67 65 20 63 68 65 |{$R-} {R|ange che|
|00000160| 63 6b 69 6e 67 20 6f 66 | 66 20 7d 0d 0d 09 54 59 |cking of|f }...TY|
|00000170| 50 45 0d 09 09 72 58 58 | 58 58 50 74 72 20 3d 20 |PE...rXX|XXPtr = |
|00000180| 5e 72 58 58 58 58 52 65 | 63 3b 0d 09 09 72 58 58 |^rXXXXRe|c;...rXX|
|00000190| 58 58 48 61 6e 64 6c 65 | 20 3d 20 5e 72 58 58 58 |XXHandle| = ^rXXX|
|000001a0| 58 50 74 72 3b 0d 09 09 | 72 58 58 58 58 52 65 63 |XPtr;...|rXXXXRec|
|000001b0| 20 3d 20 52 45 43 4f 52 | 44 0d 09 09 09 09 09 09 | = RECOR|D.......|
|000001c0| 09 09 20 66 61 74 68 65 | 72 3a 20 50 61 72 65 6e |.. fathe|r: Paren|
|000001d0| 74 48 61 6e 64 6c 65 3b | 09 09 7b 20 42 61 63 6b |tHandle;|..{ Back|
|000001e0| 20 70 74 72 20 74 6f 20 | 64 61 64 20 7d 0d 09 09 | ptr to |dad }...|
|000001f0| 09 09 09 09 09 09 20 6e | 61 6d 65 3a 20 73 74 72 |...... n|ame: str|
|00000200| 32 35 35 3b 20 09 09 09 | 09 09 09 7b 20 54 68 65 |255; ...|...{ The|
|00000210| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 65 64 | name of| this ed|
|00000220| 69 74 6f 72 20 7d 0d 09 | 09 09 09 09 09 09 09 20 |itor }..|....... |
|00000230| 77 69 6e 64 3a 20 57 69 | 6e 64 6f 77 50 74 72 3b |wind: Wi|ndowPtr;|
|00000240| 09 09 09 09 09 7b 20 54 | 68 69 73 20 76 69 65 77 |.....{ T|his view|
|00000250| 27 73 20 77 69 6e 64 6f | 77 20 7d 0d 09 09 09 09 |'s windo|w }.....|
|00000260| 09 09 09 09 20 72 65 62 | 75 69 6c 64 3a 20 42 4f |.... reb|uild: BO|
|00000270| 4f 4c 45 41 4e 3b 09 09 | 09 09 7b 20 53 65 74 20 |OLEAN;..|..{ Set |
|00000280| 54 52 55 45 20 69 66 20 | 74 68 69 6e 67 73 20 68 |TRUE if |things h|
|00000290| 61 76 65 20 63 68 61 6e | 67 65 64 20 7d 0d 09 09 |ave chan|ged }...|
|000002a0| 09 09 09 09 09 09 20 72 | 65 73 57 61 73 6e 74 4c |...... r|esWasntL|
|000002b0| 6f 61 64 65 64 3a 20 42 | 4f 4f 4c 45 41 4e 3b 09 |oaded: B|OOLEAN;.|
|000002c0| 7b 20 54 52 55 45 20 69 | 66 20 74 68 65 20 72 65 |{ TRUE i|f the re|
|000002d0| 73 6f 75 72 63 65 20 73 | 68 6f 75 6c 64 20 62 65 |source s|hould be|
|000002e0| 20 72 65 6c 65 61 73 65 | 64 20 77 68 65 6e 20 74 | release|d when t|
|000002f0| 68 65 20 77 69 6e 64 6f | 77 20 69 73 20 63 6c 6f |he windo|w is clo|
|00000300| 73 65 64 2e 20 7d 0d 09 | 09 09 09 09 09 09 09 20 |sed. }..|....... |
|00000310| 77 69 6e 64 6f 77 54 79 | 70 65 3a 20 50 6f 73 73 |windowTy|pe: Poss|
|00000320| 69 62 6c 65 57 69 6e 64 | 6f 77 54 79 70 65 73 3b |ibleWind|owTypes;|
|00000330| 0d 09 09 09 09 09 09 09 | 09 20 74 68 65 52 65 73 |........|. theRes|
|00000340| 54 79 70 65 3a 20 52 65 | 73 54 79 70 65 3b 09 09 |Type: Re|sType;..|
|00000350| 09 7b 20 54 79 70 65 20 | 6f 66 20 74 68 65 20 72 |.{ Type |of the r|
|00000360| 65 73 6f 75 72 63 65 20 | 62 65 69 6e 67 20 70 69 |esource |being pi|
|00000370| 63 6b 65 64 20 6f 72 20 | 65 64 69 74 65 64 2e 20 |cked or |edited. |
|00000380| 7d 0d 09 09 09 09 09 09 | 09 09 20 74 68 65 52 65 |}.......|.. theRe|
|00000390| 73 46 69 6c 65 3a 20 49 | 4e 54 45 47 45 52 3b 09 |sFile: I|NTEGER;.|
|000003a0| 09 09 7b 20 54 68 65 20 | 68 6f 6d 65 20 72 65 73 |..{ The |home res|
|000003b0| 66 69 6c 65 20 6f 66 20 | 74 68 65 20 77 69 6e 64 |file of |the wind|
|000003c0| 6f 77 2e 20 7d 0d 09 09 | 09 09 09 09 09 09 20 63 |ow. }...|...... c|
|000003d0| 6f 64 65 52 65 73 49 44 | 3a 20 49 4e 54 45 47 45 |odeResID|: INTEGE|
|000003e0| 52 3b 09 09 09 7b 20 52 | 65 73 6f 75 72 63 65 20 |R;...{ R|esource |
|000003f0| 49 44 20 6f 66 20 74 68 | 65 20 52 53 53 43 20 72 |ID of th|e RSSC r|
|00000400| 65 73 6f 75 72 63 65 20 | 63 6f 6e 74 61 69 6e 69 |esource |containi|
|00000410| 6e 67 20 74 68 65 20 70 | 69 63 6b 65 72 20 6f 72 |ng the p|icker or|
|00000420| 20 65 64 69 74 6f 72 2e | 20 7d 0d 09 09 09 09 09 | editor.| }......|
|00000430| 09 09 09 20 68 58 58 58 | 58 3a 20 48 61 6e 64 6c |... hXXX|X: Handl|
|00000440| 65 3b 09 09 09 09 09 09 | 7b 20 54 68 65 20 72 65 |e;......|{ The re|
|00000450| 73 6f 75 72 63 65 20 77 | 65 20 61 72 65 20 77 6f |source w|e are wo|
|00000460| 72 6b 69 6e 67 20 6f 6e | 20 7d 0d 09 09 09 09 09 |rking on| }......|
|00000470| 09 09 20 45 4e 44 3b 20 | 7b 72 58 58 58 58 52 65 |.. END; |{rXXXXRe|
|00000480| 63 7d 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 45 |c}...PRO|CEDURE E|
|00000490| 64 69 74 42 69 72 74 68 | 28 74 68 69 6e 67 3a 20 |ditBirth|(thing: |
|000004a0| 48 61 6e 64 6c 65 3b 20 | 44 61 64 3a 20 50 61 72 |Handle; |Dad: Par|
|000004b0| 65 6e 74 48 61 6e 64 6c | 65 29 3b 0d 0d 09 50 52 |entHandl|e);...PR|
|000004c0| 4f 43 45 44 55 52 45 20 | 50 69 63 6b 42 69 72 74 |OCEDURE |PickBirt|
|000004d0| 68 28 74 3a 20 52 65 73 | 54 79 70 65 3b 20 44 61 |h(t: Res|Type; Da|
|000004e0| 64 3a 20 50 61 72 65 6e | 74 48 61 6e 64 6c 65 29 |d: Paren|tHandle)|
|000004f0| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 44 6f |;...PROC|EDURE Do|
|00000500| 45 76 65 6e 74 28 56 41 | 52 20 45 76 74 3a 20 45 |Event(VA|R Evt: E|
|00000510| 76 65 6e 74 52 65 63 6f | 72 64 3b 20 6d 79 58 58 |ventReco|rd; myXX|
|00000520| 58 58 3a 20 72 58 58 58 | 58 48 61 6e 64 6c 65 29 |XX: rXXX|XHandle)|
|00000530| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 44 6f |;...PROC|EDURE Do|
|00000540| 49 6e 66 6f 55 70 64 61 | 74 65 28 6f 6c 64 49 44 |InfoUpda|te(oldID|
|00000550| 2c 20 6e 65 77 49 44 3a | 20 49 4e 54 45 47 45 52 |, newID:| INTEGER|
|00000560| 3b 20 6d 79 58 58 58 58 | 3a 20 72 58 58 58 58 48 |; myXXXX|: rXXXXH|
|00000570| 61 6e 64 6c 65 29 3b 0d | 0d 09 46 55 4e 43 54 49 |andle);.|..FUNCTI|
|00000580| 4f 4e 20 49 73 54 68 69 | 73 59 6f 75 72 73 20 28 |ON IsThi|sYours (|
|00000590| 74 68 69 6e 67 3a 20 48 | 61 6e 64 6c 65 3b 20 6d |thing: H|andle; m|
|000005a0| 79 58 58 58 58 3a 72 58 | 58 58 58 48 61 6e 64 6c |yXXXX:rX|XXXHandl|
|000005b0| 65 29 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 0d 09 50 |e): BOOL|EAN;...P|
|000005c0| 52 4f 43 45 44 55 52 45 | 20 44 6f 4d 65 6e 75 28 |ROCEDURE| DoMenu(|
|000005d0| 4d 65 6e 75 2c 20 49 74 | 65 6d 3a 20 49 4e 54 45 |Menu, It|em: INTE|
|000005e0| 47 45 52 3b 20 6d 79 58 | 58 58 58 3a 20 72 58 58 |GER; myX|XXX: rXX|
|000005f0| 58 58 48 61 6e 64 6c 65 | 29 3b 0d 0d 49 4d 50 4c |XXHandle|);..IMPL|
|00000600| 45 4d 45 4e 54 41 54 49 | 4f 4e 0d 0d 09 43 4f 4e |EMENTATI|ON...CON|
|00000610| 53 54 0d 09 09 77 69 6e | 64 6f 77 57 69 64 74 68 |ST...win|dowWidth|
|00000620| 20 3d 20 33 30 30 3b 0d | 09 09 77 69 6e 64 6f 77 | = 300;.|..window|
|00000630| 48 65 69 67 68 74 20 3d | 20 31 30 30 3b 0d 0d 09 |Height =| 100;...|
|00000640| 09 73 69 7a 65 4f 66 58 | 58 58 58 52 65 73 6f 75 |.sizeOfX|XXXResou|
|00000650| 72 63 65 20 3d 20 31 30 | 3b 0d 09 09 0d 09 09 7b |rce = 10|;......{|
|00000660| 2d 20 2d 20 2d 09 2d 20 | 20 2d 20 2d 09 2d 20 20 |- - -.- | - -.-  |
|00000670| 2d 09 2d 20 2d 20 20 2d | 09 2d 20 2d 20 2d 20 20 |-.- -  -|.- - -  |
|00000680| 2d 20 2d 09 2d 20 2d 20 | 2d 20 20 2d 09 2d 20 2d |- -.- - |-  -.- -|
|00000690| 20 20 2d 09 2d 7d 0d 0d | 09 7b 20 46 69 78 20 75 |  -.-}..|.{ Fix u|
|000006a0| 70 20 74 68 65 20 77 69 | 6e 64 6f 77 20 6e 61 6d |p the wi|ndow nam|
|000006b0| 65 20 61 6e 64 20 74 69 | 74 6c 65 20 66 6f 72 20 |e and ti|tle for |
|000006c0| 6f 75 72 20 77 69 6e 64 | 6f 77 2e 20 7d 0d 09 50 |our wind|ow. }..P|
|000006d0| 52 4f 43 45 44 55 52 45 | 20 47 65 74 4e 61 6d 65 |ROCEDURE| GetName|
|000006e0| 41 6e 64 54 69 74 6c 65 | 28 56 41 52 20 77 69 6e |AndTitle|(VAR win|
|000006f0| 64 6f 77 54 69 74 6c 65 | 2c 20 77 69 6e 64 6f 77 |dowTitle|, window|
|00000700| 4e 61 6d 65 3a 20 53 54 | 52 32 35 35 3b 20 74 68 |Name: ST|R255; th|
|00000710| 69 6e 67 3a 20 48 61 6e | 64 6c 65 29 3b 0d 0d 09 |ing: Han|dle);...|
|00000720| 09 42 45 47 49 4e 0d 09 | 09 77 69 6e 64 6f 77 54 |.BEGIN..|.windowT|
|00000730| 69 74 6c 65 20 3a 3d 20 | 27 27 3b 0d 09 09 53 65 |itle := |'';...Se|
|00000740| 74 45 54 69 74 6c 65 28 | 74 68 69 6e 67 2c 20 77 |tETitle(|thing, w|
|00000750| 69 6e 64 6f 77 54 69 74 | 6c 65 29 3b 0d 09 09 77 |indowTit|le);...w|
|00000760| 69 6e 64 6f 77 4e 61 6d | 65 20 3a 3d 20 43 6f 6e |indowNam|e := Con|
|00000770| 63 61 74 28 27 58 58 58 | 58 27 2c 20 77 69 6e 64 |cat('XXX|X', wind|
|00000780| 6f 77 54 69 74 6c 65 29 | 3b 0d 09 09 77 69 6e 64 |owTitle)|;...wind|
|00000790| 6f 77 54 69 74 6c 65 20 | 3a 3d 20 43 6f 6e 63 61 |owTitle |:= Conca|
|000007a0| 74 28 27 58 58 58 58 27 | 2c 20 77 69 6e 64 6f 77 |t('XXXX'|, window|
|000007b0| 54 69 74 6c 65 29 3b 0d | 09 09 45 4e 44 3b 0d 0d |Title);.|..END;..|
|000007c0| 20 7b 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | { *****|********|
|000007d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 7d 0d 0d 09 |********|*** }...|
|00000820| 50 52 4f 43 45 44 55 52 | 45 20 45 64 69 74 42 69 |PROCEDUR|E EditBi|
|00000830| 72 74 68 28 74 68 69 6e | 67 3a 48 61 6e 64 6c 65 |rth(thin|g:Handle|
|00000840| 3b 20 64 61 64 3a 50 61 | 72 65 6e 74 48 61 6e 64 |; dad:Pa|rentHand|
|00000850| 6c 65 29 3b 0d 0d 09 09 | 56 41 52 0d 09 09 09 6d |le);....|VAR....m|
|00000860| 79 58 58 58 58 3a 20 72 | 58 58 58 58 48 61 6e 64 |yXXXX: r|XXXXHand|
|00000870| 6c 65 3b 0d 09 09 09 6d | 79 57 69 6e 64 6f 77 3a |le;....m|yWindow:|
|00000880| 20 57 69 6e 64 6f 77 50 | 74 72 3b 0d 09 09 09 77 | WindowP|tr;....w|
|00000890| 69 6e 64 6f 77 54 69 74 | 6c 65 2c 20 77 69 6e 64 |indowTit|le, wind|
|000008a0| 6f 77 4e 61 6d 65 3a 20 | 53 54 52 32 35 35 3b 0d |owName: |STR255;.|
|000008b0| 0d 09 09 42 45 47 49 4e | 20 7b 45 64 69 74 42 69 |...BEGIN| {EditBi|
|000008c0| 72 74 68 7d 0d 09 09 7b | 20 50 72 65 70 61 72 65 |rth}...{| Prepare|
|000008d0| 20 77 69 6e 64 6f 77 20 | 74 69 74 6c 65 20 61 6e | window |title an|
|000008e0| 64 20 72 65 71 75 65 73 | 74 20 63 72 65 61 74 69 |d reques|t creati|
|000008f0| 6f 6e 20 6f 66 20 61 20 | 6e 65 77 20 77 69 6e 64 |on of a |new wind|
|00000900| 6f 77 20 7d 0d 09 09 47 | 65 74 4e 61 6d 65 41 6e |ow }...G|etNameAn|
|00000910| 64 54 69 74 6c 65 28 77 | 69 6e 64 6f 77 54 69 74 |dTitle(w|indowTit|
|00000920| 6c 65 2c 20 77 69 6e 64 | 6f 77 4e 61 6d 65 2c 20 |le, wind|owName, |
|00000930| 74 68 69 6e 67 29 3b 0d | 09 09 6d 79 57 69 6e 64 |thing);.|..myWind|
|00000940| 6f 77 20 3a 3d 20 45 64 | 69 74 6f 72 57 69 6e 64 |ow := Ed|itorWind|
|00000950| 53 65 74 75 70 28 6e 6f | 44 69 61 6c 6f 67 2c 20 |Setup(no|Dialog, |
|00000960| 6e 6f 43 6f 6c 6f 72 2c | 20 77 69 6e 64 6f 77 57 |noColor,| windowW|
|00000970| 69 64 74 68 2c 20 77 69 | 6e 64 6f 77 48 65 69 67 |idth, wi|ndowHeig|
|00000980| 68 74 2c 20 77 69 6e 64 | 6f 77 54 69 74 6c 65 2c |ht, wind|owTitle,|
|00000990| 20 77 69 6e 64 6f 77 4e | 61 6d 65 2c 20 54 52 55 | windowN|ame, TRU|
|000009a0| 45 2c 20 52 65 73 45 64 | 49 64 2c 20 64 61 64 29 |E, ResEd|Id, dad)|
|000009b0| 3b 0d 09 09 0d 09 09 7b | 20 49 66 20 77 65 20 67 |;......{| If we g|
|000009c0| 6f 74 20 61 20 6e 65 77 | 20 77 69 6e 64 6f 77 2c |ot a new| window,|
|000009d0| 20 74 68 65 6e 20 73 74 | 61 72 74 20 75 70 20 74 | then st|art up t|
|000009e0| 68 65 20 65 64 69 74 6f | 72 20 7d 0d 09 09 49 46 |he edito|r }...IF|
|000009f0| 20 6d 79 57 69 6e 64 6f | 77 20 3c 3e 20 4e 49 4c | myWindo|w <> NIL|
|00000a00| 20 54 48 45 4e 0d 09 09 | 09 42 45 47 49 4e 0d 09 | THEN...|.BEGIN..|
|00000a10| 09 09 49 46 20 47 65 74 | 48 61 6e 64 6c 65 53 69 |..IF Get|HandleSi|
|00000a20| 7a 65 28 74 68 69 6e 67 | 29 20 3d 20 30 20 54 48 |ze(thing|) = 0 TH|
|00000a30| 45 4e 20 7b 20 54 68 69 | 73 20 77 61 73 20 63 61 |EN { Thi|s was ca|
|00000a40| 6c 6c 65 64 20 76 69 61 | 20 61 20 4e 45 57 2c 20 |lled via| a NEW, |
|00000a50| 73 6f 20 6d 61 6b 65 20 | 61 20 6e 65 77 20 72 65 |so make |a new re|
|00000a60| 73 6f 75 72 63 65 20 7d | 0d 09 09 09 09 46 69 78 |source }|.....Fix|
|00000a70| 48 61 6e 64 28 73 69 7a | 65 4f 66 58 58 58 58 52 |Hand(siz|eOfXXXXR|
|00000a80| 65 73 6f 75 72 63 65 2c | 20 74 68 69 6e 67 29 3b |esource,| thing);|
|00000a90| 0d 0d 09 09 09 7b 20 47 | 65 74 20 6d 65 6d 6f 72 |.....{ G|et memor|
|00000aa0| 79 20 66 6f 72 20 61 6e | 64 20 68 61 6e 64 6c 65 |y for an|d handle|
|00000ab0| 20 74 6f 20 6f 75 72 20 | 69 6e 73 74 61 6e 63 65 | to our |instance|
|00000ac0| 20 72 65 63 6f 72 64 20 | 7d 0d 09 09 09 6d 79 58 | record |}....myX|
|00000ad0| 58 58 58 20 3a 3d 20 72 | 58 58 58 58 48 61 6e 64 |XXX := r|XXXXHand|
|00000ae0| 6c 65 28 4e 65 77 48 61 | 6e 64 6c 65 28 53 49 5a |le(NewHa|ndle(SIZ|
|00000af0| 45 4f 46 28 72 58 58 58 | 58 52 65 63 29 29 29 3b |EOF(rXXX|XRec)));|
|00000b00| 0d 09 09 09 49 46 20 4d | 65 6d 45 72 72 6f 72 20 |....IF M|emError |
|00000b10| 3c 3e 20 6e 6f 45 72 72 | 20 54 48 45 4e 0d 09 09 |<> noErr| THEN...|
|00000b20| 09 09 42 45 47 49 4e 0d | 09 09 09 09 43 6c 6f 73 |..BEGIN.|....Clos|
|00000b30| 65 57 69 6e 64 6f 77 28 | 6d 79 57 69 6e 64 6f 77 |eWindow(|myWindow|
|00000b40| 29 3b 0d 09 09 09 09 57 | 69 6e 64 52 65 74 75 72 |);.....W|indRetur|
|00000b50| 6e 28 6d 79 57 69 6e 64 | 6f 77 29 3b 09 09 09 09 |n(myWind|ow);....|
|00000b60| 7b 20 4d 61 72 6b 20 74 | 68 65 20 77 69 6e 64 6f |{ Mark t|he windo|
|00000b70| 77 20 72 65 63 6f 72 64 | 20 61 73 20 62 65 69 6e |w record| as bein|
|00000b80| 67 20 61 76 61 69 6c 61 | 62 6c 65 20 7d 0d 09 09 |g availa|ble }...|
|00000b90| 09 09 45 78 69 74 20 28 | 45 64 69 74 42 69 72 74 |..Exit (|EditBirt|
|00000ba0| 68 29 3b 0d 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |h);.....|END;....|
|00000bb0| 09 0d 09 09 09 42 75 62 | 62 6c 65 55 70 28 48 61 |.....Bub|bleUp(Ha|
|00000bc0| 6e 64 6c 65 28 6d 79 58 | 58 58 58 29 29 3b 0d 09 |ndle(myX|XXX));..|
|00000bd0| 09 09 48 4c 6f 63 6b 28 | 48 61 6e 64 6c 65 28 6d |..HLock(|Handle(m|
|00000be0| 79 58 58 58 58 29 29 3b | 0d 0d 09 09 09 57 49 54 |yXXXX));|.....WIT|
|00000bf0| 48 20 6d 79 58 58 58 58 | 5e 5e 20 44 4f 0d 09 09 |H myXXXX|^^ DO...|
|00000c00| 09 09 42 45 47 49 4e 0d | 09 09 09 09 7b 20 50 75 |..BEGIN.|....{ Pu|
|00000c10| 74 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 61 62 |t inform|ation ab|
|00000c20| 6f 75 74 20 74 68 69 73 | 20 69 6e 63 61 72 6e 61 |out this| incarna|
|00000c30| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 65 64 69 74 |tion of |the edit|
|00000c40| 6f 72 20 61 6e 64 20 74 | 68 65 20 77 69 6e 64 6f |or and t|he windo|
|00000c50| 77 20 69 74 20 69 73 20 | 7d 0d 09 09 09 09 7b 20 |w it is |}.....{ |
|00000c60| 73 65 72 76 69 6e 67 20 | 69 6e 74 6f 20 6f 75 72 |serving |into our|
|00000c70| 20 72 65 63 6f 72 64 2e | 28 61 6c 77 61 79 73 20 | record.|(always |
|00000c80| 70 61 73 73 65 64 20 61 | 72 6f 75 6e 64 20 69 6e |passed a|round in|
|00000c90| 20 74 68 65 20 68 61 6e | 64 6c 65 20 6d 79 58 58 | the han|dle myXX|
|00000ca0| 58 58 29 2e 20 20 7d 0d | 09 09 09 09 0d 09 09 09 |XX).  }.|........|
|00000cb0| 09 66 61 74 68 65 72 20 | 3a 3d 20 64 61 64 3b 0d |.father |:= dad;.|
|00000cc0| 09 09 09 09 6e 61 6d 65 | 20 3a 3d 20 77 69 6e 64 |....name| := wind|
|00000cd0| 6f 77 4e 61 6d 65 3b 0d | 09 09 09 09 77 69 6e 64 |owName;.|....wind|
|00000ce0| 20 3a 3d 20 6d 79 57 69 | 6e 64 6f 77 3b 0d 09 09 | := myWi|ndow;...|
|00000cf0| 09 09 72 65 62 75 69 6c | 64 20 3a 3d 20 66 61 6c |..rebuil|d := fal|
|00000d00| 73 65 3b 0d 09 09 09 09 | 72 65 73 57 61 73 6e 74 |se;.....|resWasnt|
|00000d10| 4c 6f 61 64 65 64 20 3a | 3d 20 4e 4f 54 20 57 61 |Loaded :|= NOT Wa|
|00000d20| 73 49 74 4c 6f 61 64 65 | 64 3b 0d 09 09 09 09 77 |sItLoade|d;.....w|
|00000d30| 69 6e 64 6f 77 54 79 70 | 65 20 3a 3d 20 65 64 69 |indowTyp|e := edi|
|00000d40| 74 6f 72 57 69 6e 64 6f | 77 3b 0d 09 09 09 09 74 |torWindo|w;.....t|
|00000d50| 68 65 52 65 73 54 79 70 | 65 20 3a 3d 20 27 58 58 |heResTyp|e := 'XX|
|00000d60| 58 58 27 3b 0d 09 09 09 | 09 74 68 65 52 65 73 46 |XX';....|.theResF|
|00000d70| 69 6c 65 20 3a 3d 20 48 | 6f 6d 65 52 65 73 46 69 |ile := H|omeResFi|
|00000d80| 6c 65 20 28 74 68 69 6e | 67 29 3b 0d 09 09 09 09 |le (thin|g);.....|
|00000d90| 63 6f 64 65 52 65 73 49 | 44 20 3a 3d 20 52 65 73 |codeResI|D := Res|
|00000da0| 45 64 49 44 3b 0d 09 09 | 09 09 68 58 58 58 58 20 |EdID;...|..hXXXX |
|00000db0| 3a 3d 20 74 68 69 6e 67 | 3b 0d 09 09 09 09 0d 09 |:= thing|;.......|
|00000dc0| 09 09 09 7b 20 4c 65 74 | 20 74 68 65 20 6d 61 69 |...{ Let| the mai|
|00000dd0| 6e 20 70 72 6f 67 72 61 | 6d 20 6b 6e 6f 77 20 77 |n progra|m know w|
|00000de0| 68 6f 20 69 73 20 74 6f | 20 6d 61 6e 61 67 65 20 |ho is to| manage |
|00000df0| 74 68 69 73 20 77 69 6e | 64 6f 77 20 62 79 20 67 |this win|dow by g|
|00000e00| 69 76 69 6e 67 20 69 74 | 20 6f 75 72 20 09 7d 0d |iving it| our .}.|
|00000e10| 09 09 09 09 7b 20 69 6e | 73 74 61 6e 63 65 20 72 |....{ in|stance r|
|00000e20| 65 63 6f 72 64 20 68 61 | 6e 64 6c 65 2e 09 09 7d |ecord ha|ndle...}|
|00000e30| 0d 09 09 09 09 57 69 6e | 64 6f 77 50 65 65 6b 28 |.....Win|dowPeek(|
|00000e40| 6d 79 57 69 6e 64 6f 77 | 29 5e 2e 72 65 66 43 6f |myWindow|)^.refCo|
|00000e50| 6e 20 3a 3d 20 4f 52 44 | 28 6d 79 58 58 58 58 29 |n := ORD|(myXXXX)|
|00000e60| 3b 0d 09 09 09 09 45 4e | 44 3b 20 7b 57 49 54 48 |;.....EN|D; {WITH|
|00000e70| 7d 0d 09 09 09 09 0d 09 | 09 09 7b 20 53 65 74 20 |}.......|..{ Set |
|00000e80| 75 70 20 61 6e 79 20 6d | 65 6e 75 73 2c 76 69 65 |up any m|enus,vie|
|00000e90| 77 73 2c 20 65 74 63 2e | 20 66 6f 72 20 74 68 69 |ws, etc.| for thi|
|00000ea0| 73 20 77 69 6e 64 6f 77 | 20 68 65 72 65 2e 20 7d |s window| here. }|
|00000eb0| 0d 09 09 09 0d 09 09 09 | 48 55 6e 6c 6f 63 6b 28 |........|HUnlock(|
|00000ec0| 48 61 6e 64 6c 65 28 6d | 79 58 58 58 58 29 29 3b |Handle(m|yXXXX));|
|00000ed0| 0d 09 09 09 45 4e 44 3b | 20 7b 20 49 46 20 6d 79 |....END;| { IF my|
|00000ee0| 57 69 6e 64 20 3c 3e 20 | 4e 49 4c 20 7d 0d 09 09 |Wind <> |NIL }...|
|00000ef0| 45 4e 44 3b 20 7b 20 45 | 64 69 74 42 69 72 74 68 |END; { E|ditBirth|
|00000f00| 20 7d 0d 09 7b 2d 20 2d | 09 2d 20 20 2d 20 2d 20 | }..{- -|.-  - - |
|00000f10| 2d 09 2d 20 2d 20 20 2d | 20 2d 20 2d 09 2d 20 20 |-.- -  -| - -.-  |
|00000f20| 2d 20 2d 09 2d 20 20 2d | 09 2d 20 2d 20 20 2d 09 |- -.-  -|.- -  -.|
|00000f30| 2d 20 2d 20 2d 20 20 2d | 20 2d 7d 0d 0d 09 7b 20 |- - -  -| -}...{ |
|00000f40| 4e 6f 74 20 75 73 65 64 | 20 66 6f 72 20 65 64 69 |Not used| for edi|
|00000f50| 74 6f 72 73 2e 20 7d 0d | 09 50 52 4f 43 45 44 55 |tors. }.|.PROCEDU|
|00000f60| 52 45 20 50 69 63 6b 42 | 69 72 74 68 28 74 3a 52 |RE PickB|irth(t:R|
|00000f70| 65 73 54 79 70 65 3b 44 | 61 64 3a 50 61 72 65 6e |esType;D|ad:Paren|
|00000f80| 74 48 61 6e 64 6c 65 29 | 3b 0d 0d 09 09 42 45 47 |tHandle)|;....BEG|
|00000f90| 49 4e 20 7b 20 50 69 63 | 6b 42 69 72 74 68 20 7d |IN { Pic|kBirth }|
|00000fa0| 0d 09 09 45 4e 44 3b 20 | 09 7b 20 50 69 63 6b 42 |...END; |.{ PickB|
|00000fb0| 69 72 74 68 20 7d 0d 09 | 7b 2d 20 2d 09 2d 20 20 |irth }..|{- -.-  |
|00000fc0| 2d 20 2d 20 2d 09 2d 20 | 2d 20 20 2d 20 2d 20 2d |- - -.- |-  - - -|
|00000fd0| 09 2d 20 20 2d 20 2d 09 | 2d 20 20 2d 09 2d 20 2d |.-  - -.|-  -.- -|
|00000fe0| 20 20 2d 09 2d 20 2d 20 | 2d 20 20 2d 20 2d 7d 0d |  -.- - |-  - -}.|
|00000ff0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 44 6f 45 76 |..PROCED|URE DoEv|
|00001000| 65 6e 74 28 56 41 52 20 | 45 76 74 3a 45 76 65 6e |ent(VAR |Evt:Even|
|00001010| 74 52 65 63 6f 72 64 3b | 20 6d 79 58 58 58 58 3a |tRecord;| myXXXX:|
|00001020| 72 58 58 58 58 48 61 6e | 64 6c 65 29 3b 0d 0d 09 |rXXXXHan|dle);...|
|00001030| 09 56 41 52 0d 09 09 09 | 4d 6f 75 73 65 50 6f 69 |.VAR....|MousePoi|
|00001040| 6e 74 3a 20 50 6f 69 6e | 74 3b 0d 09 09 09 61 63 |nt: Poin|t;....ac|
|00001050| 74 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 0d 09 09 42 |t: BOOLE|AN;....B|
|00001060| 45 47 49 4e 20 7b 44 6f | 45 76 65 6e 74 7d 0d 09 |EGIN {Do|Event}..|
|00001070| 09 42 75 62 62 6c 65 55 | 70 28 48 61 6e 64 6c 65 |.BubbleU|p(Handle|
|00001080| 28 6d 79 58 58 58 58 29 | 29 3b 20 09 09 09 7b 20 |(myXXXX)|); ...{ |
|00001090| 4d 6f 76 65 20 6f 75 72 | 20 69 74 65 6d 20 75 70 |Move our| item up|
|000010a0| 20 69 6e 20 6d 65 6d 6f | 72 79 20 7d 0d 09 09 48 | in memo|ry }...H|
|000010b0| 4c 6f 63 6b 28 48 61 6e | 64 6c 65 28 6d 79 58 58 |Lock(Han|dle(myXX|
|000010c0| 58 58 29 29 3b 20 09 09 | 09 09 09 7b 20 4c 6f 63 |XX)); ..|...{ Loc|
|000010d0| 6b 20 69 74 20 64 6f 77 | 6e 20 7d 0d 09 09 57 49 |k it dow|n }...WI|
|000010e0| 54 48 20 6d 79 58 58 58 | 58 5e 5e 20 44 4f 0d 09 |TH myXXX|X^^ DO..|
|000010f0| 09 09 42 45 47 49 4e 0d | 09 09 09 7b 20 48 61 6e |..BEGIN.|...{ Han|
|00001100| 64 6c 65 20 65 76 65 6e | 74 20 70 61 73 73 65 64 |dle even|t passed|
|00001110| 20 74 6f 20 75 73 20 62 | 79 20 6d 61 69 6e 20 70 | to us b|y main p|
|00001120| 72 6f 67 72 61 6d 2e 20 | 20 4a 75 73 74 20 6c 69 |rogram. | Just li|
|00001130| 6b 65 20 61 20 27 72 65 | 61 6c 27 20 65 76 65 6e |ke a 're|al' even|
|00001140| 74 20 6c 6f 6f 70 2c 20 | 65 78 63 65 70 74 c9 0d |t loop, |except..|
|00001150| 09 09 09 09 20 74 68 65 | 72 65 20 69 73 20 6e 6f |.... the|re is no|
|00001160| 20 6c 6f 6f 70 20 61 6e | 64 20 77 65 20 64 6f 6e | loop an|d we don|
|00001170| 27 74 20 68 61 76 65 20 | 74 6f 20 68 61 6e 64 6c |'t have |to handl|
|00001180| 65 20 61 73 20 6d 75 63 | 68 20 62 65 63 61 75 73 |e as muc|h becaus|
|00001190| 65 20 74 68 65 20 6d 61 | 69 6e 20 70 72 6f 67 72 |e the ma|in progr|
|000011a0| 61 6d 0d 09 09 09 09 20 | 77 69 6c 6c 20 64 6f 20 |am..... |will do |
|000011b0| 61 6c 6c 20 74 68 65 20 | 73 74 75 66 66 20 74 68 |all the |stuff th|
|000011c0| 61 74 20 64 6f 65 73 6e | 27 74 20 61 70 70 6c 79 |at doesn|'t apply|
|000011d0| 20 74 6f 20 75 73 2e 20 | 7d 0d 09 09 09 09 0d 09 | to us. |}.......|
|000011e0| 09 09 53 65 74 50 6f 72 | 74 28 77 69 6e 64 29 3b |..SetPor|t(wind);|
|000011f0| 09 09 09 09 09 09 09 09 | 7b 20 53 65 74 20 74 68 |........|{ Set th|
|00001200| 65 20 70 6f 72 74 20 74 | 6f 20 6f 75 72 20 77 69 |e port t|o our wi|
|00001210| 6e 64 6f 77 20 7d 0d 09 | 09 09 0d 09 09 09 43 41 |ndow }..|......CA|
|00001220| 53 45 20 45 76 74 2e 77 | 68 61 74 20 4f 46 0d 09 |SE Evt.w|hat OF..|
|00001230| 09 09 09 6d 6f 75 73 65 | 44 6f 77 6e 3a 0d 09 09 |...mouse|Down:...|
|00001240| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 09 4d 6f |...BEGIN|......Mo|
|00001250| 75 73 65 50 6f 69 6e 74 | 20 3a 3d 20 45 76 74 2e |usePoint| := Evt.|
|00001260| 77 68 65 72 65 3b 09 7b | 20 50 6f 69 6e 74 20 61 |where;.{| Point a|
|00001270| 74 20 77 68 69 63 68 20 | 74 68 65 20 65 76 65 6e |t which |the even|
|00001280| 74 20 6f 63 63 75 72 65 | 64 20 7d 0d 09 09 09 09 |t occure|d }.....|
|00001290| 09 47 6c 6f 62 61 6c 54 | 6f 4c 6f 63 61 6c 28 4d |.GlobalT|oLocal(M|
|000012a0| 6f 75 73 65 50 6f 69 6e | 74 29 3b 7b 20 43 6f 6e |ousePoin|t);{ Con|
|000012b0| 76 65 72 74 20 65 76 65 | 6e 74 20 6c 6f 63 61 74 |vert eve|nt locat|
|000012c0| 69 6f 6e 20 74 6f 20 6c | 6f 63 61 6c 20 63 6f 6f |ion to l|ocal coo|
|000012d0| 72 64 73 20 7d 0d 09 09 | 09 09 09 09 09 09 09 09 |rds }...|........|
|000012e0| 09 09 7b 20 44 6f 20 61 | 6e 79 20 73 70 65 63 69 |..{ Do a|ny speci|
|000012f0| 61 6c 20 6d 6f 75 73 65 | 20 64 6f 77 6e 20 70 72 |al mouse| down pr|
|00001300| 6f 63 65 73 73 69 6e 67 | 20 68 65 72 65 2e 20 7d |ocessing| here. }|
|00001310| 0d 09 09 09 09 09 45 4e | 44 3b 20 7b 20 6d 6f 75 |......EN|D; { mou|
|00001320| 73 65 44 6f 77 6e 20 7d | 0d 09 09 09 09 61 63 74 |seDown }|.....act|
|00001330| 69 76 61 74 65 45 76 74 | 3a 0d 09 09 09 09 09 42 |ivateEvt|:......B|
|00001340| 45 47 49 4e 0d 09 09 09 | 09 09 61 63 74 20 3a 3d |EGIN....|..act :=|
|00001350| 20 4f 44 44 28 45 76 74 | 2e 6d 6f 64 69 66 69 65 | ODD(Evt|.modifie|
|00001360| 72 73 29 3b 0d 09 09 09 | 09 09 49 46 20 61 63 74 |rs);....|..IF act|
|00001370| 20 54 48 45 4e 0d 09 09 | 09 09 09 09 42 45 47 49 | THEN...|....BEGI|
|00001380| 4e 0d 09 09 09 09 09 09 | 41 62 6c 65 4d 65 6e 75 |N.......|AbleMenu|
|00001390| 28 65 64 69 74 4d 65 6e | 75 2c 20 65 64 69 74 4e |(editMen|u, editN|
|000013a0| 6f 6e 65 29 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |one);...|........|
|000013b0| 09 09 7b 20 44 6f 20 61 | 6e 79 20 61 63 74 69 76 |..{ Do a|ny activ|
|000013c0| 61 74 65 20 70 72 6f 63 | 65 73 73 69 6e 67 20 68 |ate proc|essing h|
|000013d0| 65 72 65 20 28 73 75 63 | 68 20 61 73 20 69 6e 73 |ere (suc|h as ins|
|000013e0| 65 72 74 69 6e 67 20 61 | 20 6d 65 6e 75 29 2e 20 |erting a| menu). |
|000013f0| 7d 0d 09 09 09 09 09 09 | 45 4e 44 0d 09 09 09 09 |}.......|END.....|
|00001400| 09 45 4c 53 45 0d 09 09 | 09 09 09 09 42 45 47 49 |.ELSE...|....BEGI|
|00001410| 4e 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 7b 20 |N.......|......{ |
|00001420| 44 6f 20 61 6e 79 20 64 | 65 61 63 74 69 76 61 74 |Do any d|eactivat|
|00001430| 65 20 70 72 6f 63 65 73 | 73 69 6e 67 20 68 65 72 |e proces|sing her|
|00001440| 65 20 28 73 75 63 68 20 | 61 73 20 64 65 6c 65 74 |e (such |as delet|
|00001450| 69 6e 67 20 61 20 6d 65 | 6e 75 29 2e 20 7d 0d 09 |ing a me|nu). }..|
|00001460| 09 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 09 09 45 |.....END|;......E|
|00001470| 4e 44 20 7b 61 63 74 69 | 76 61 74 65 45 76 74 7d |ND {acti|vateEvt}|
|00001480| 20 3b 0d 09 09 09 09 75 | 70 64 61 74 65 45 76 74 | ;.....u|pdateEvt|
|00001490| 3a 0d 09 09 09 09 09 42 | 45 47 49 4e 0d 09 09 09 |:......B|EGIN....|
|000014a0| 09 09 09 09 09 09 09 09 | 09 7b 20 44 6f 20 74 68 |........|.{ Do th|
|000014b0| 65 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 75 70 |e approp|riate up|
|000014c0| 64 61 74 65 20 70 72 6f | 63 65 73 73 69 6e 67 20 |date pro|cessing |
|000014d0| 68 65 72 65 2e 20 20 52 | 65 6d 65 6d 62 65 72 20 |here.  R|emember |
|000014e0| 74 68 61 74 20 0d 09 09 | 09 09 09 09 09 09 09 09 |that ...|........|
|000014f0| 09 09 09 42 65 67 69 6e | 55 70 64 61 74 65 20 68 |...Begin|Update h|
|00001500| 61 73 20 61 6c 72 65 61 | 64 79 20 62 65 65 6e 20 |as alrea|dy been |
|00001510| 63 61 6c 6c 65 64 2e 20 | 7d 0d 09 09 09 09 09 50 |called. |}......P|
|00001520| 61 69 6e 74 52 65 63 74 | 28 77 69 6e 64 5e 2e 70 |aintRect|(wind^.p|
|00001530| 6f 72 74 72 65 63 74 29 | 3b 0d 09 09 09 09 09 45 |ortrect)|;......E|
|00001540| 4e 44 3b 20 7b 75 70 64 | 61 74 65 45 76 74 7d 0d |ND; {upd|ateEvt}.|
|00001550| 09 09 09 09 6b 65 79 44 | 6f 77 6e 3a 0d 09 09 09 |....keyD|own:....|
|00001560| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 09 09 09 |..BEGIN.|........|
|00001570| 09 09 09 09 7b 20 44 6f | 20 61 6e 79 20 6b 65 79 |....{ Do| any key|
|00001580| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 68 65 72 65 | process|ing here|
|00001590| 2e 20 7d 0d 09 09 09 09 | 09 0d 09 09 09 09 09 7b |. }.....|.......{|
|000015a0| 20 43 6f 6e 76 65 72 74 | 20 74 68 65 20 64 65 6c | Convert| the del|
|000015b0| 65 74 65 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |ete char|acter in|
|000015c0| 74 6f 20 61 20 63 6c 65 | 61 72 20 63 6f 6d 6d 61 |to a cle|ar comma|
|000015d0| 6e 64 2e 20 7d 0d 09 09 | 09 09 09 49 46 20 28 62 |nd. }...|...IF (b|
|000015e0| 61 6e 64 28 65 76 74 2e | 6d 65 73 73 61 67 65 2c |and(evt.|message,|
|000015f0| 20 63 68 61 72 43 6f 64 | 65 4d 61 73 6b 29 20 3d | charCod|eMask) =|
|00001600| 20 64 65 6c 65 74 65 4b | 65 79 29 20 54 48 45 4e | deleteK|ey) THEN|
|00001610| 0d 09 09 09 09 09 09 44 | 6f 4d 65 6e 75 20 28 65 |.......D|oMenu (e|
|00001620| 64 69 74 4d 65 6e 75 2c | 20 63 6c 65 61 72 49 74 |ditMenu,| clearIt|
|00001630| 65 6d 2c 20 6d 79 58 58 | 58 58 29 0d 09 09 09 09 |em, myXX|XX).....|
|00001640| 09 45 4e 44 3b 20 7b 6b | 65 79 44 6f 77 6e 7d 0d |.END; {k|eyDown}.|
|00001650| 09 09 09 09 0d 09 09 09 | 09 6e 75 6c 6c 45 76 65 |........|.nullEve|
|00001660| 6e 74 3a 0d 09 09 09 09 | 09 42 45 47 49 4e 0d 09 |nt:.....|.BEGIN..|
|00001670| 09 09 09 09 09 09 09 09 | 09 09 7b 20 44 6f 20 61 |........|..{ Do a|
|00001680| 6e 79 20 6e 75 6c 6c 20 | 65 76 65 6e 74 20 70 72 |ny null |event pr|
|00001690| 6f 63 65 73 73 69 6e 67 | 20 68 65 72 65 20 28 73 |ocessing| here (s|
|000016a0| 75 63 68 20 61 73 20 62 | 6c 69 6e 6b 69 6e 67 20 |uch as b|linking |
|000016b0| 61 20 63 75 72 73 6f 72 | 29 2e 09 7d 0d 09 09 09 |a cursor|)..}....|
|000016c0| 09 09 45 4e 44 3b 0d 09 | 09 09 09 45 4e 44 3b 09 |..END;..|...END;.|
|000016d0| 7b 20 43 41 53 45 20 65 | 76 74 2e 77 68 61 74 20 |{ CASE e|vt.what |
|000016e0| 7d 0d 09 09 09 45 4e 44 | 3b 20 09 09 7b 20 57 49 |}....END|; ..{ WI|
|000016f0| 54 48 20 6d 79 58 58 58 | 58 5e 5e 20 7d 0d 09 09 |TH myXXX|X^^ }...|
|00001700| 09 0d 09 09 48 55 6e 6c | 6f 63 6b 28 48 61 6e 64 |....HUnl|ock(Hand|
|00001710| 6c 65 28 6d 79 58 58 58 | 58 29 29 3b 0d 09 09 45 |le(myXXX|X));...E|
|00001720| 4e 44 3b 20 09 09 09 7b | 20 44 6f 45 76 65 6e 74 |ND; ...{| DoEvent|
|00001730| 20 7d 0d 09 7b 2d 20 2d | 09 2d 20 20 2d 20 2d 20 | }..{- -|.-  - - |
|00001740| 2d 09 2d 20 2d 20 20 2d | 20 2d 20 2d 09 2d 20 20 |-.- -  -| - -.-  |
|00001750| 2d 20 2d 09 2d 20 20 2d | 09 2d 20 2d 20 20 2d 09 |- -.-  -|.- -  -.|
|00001760| 2d 20 2d 20 2d 20 20 2d | 20 2d 7d 0d 0d 09 50 52 |- - -  -| -}...PR|
|00001770| 4f 43 45 44 55 52 45 20 | 44 6f 49 6e 66 6f 55 70 |OCEDURE |DoInfoUp|
|00001780| 64 61 74 65 28 6f 6c 64 | 49 44 2c 6e 65 77 49 44 |date(old|ID,newID|
|00001790| 3a 49 4e 54 45 47 45 52 | 3b 6d 79 58 58 58 58 3a |:INTEGER|;myXXXX:|
|000017a0| 72 58 58 58 58 48 61 6e | 64 6c 65 29 3b 0d 0d 09 |rXXXXHan|dle);...|
|000017b0| 09 56 41 52 0d 09 09 09 | 77 69 6e 64 6f 77 54 69 |.VAR....|windowTi|
|000017c0| 74 6c 65 2c 20 77 69 6e | 64 6f 77 4e 61 6d 65 3a |tle, win|dowName:|
|000017d0| 20 53 54 52 32 35 35 3b | 0d 0d 09 09 42 45 47 49 | STR255;|....BEGI|
|000017e0| 4e 20 7b 20 44 6f 49 6e | 66 6f 55 70 64 61 74 65 |N { DoIn|foUpdate|
|000017f0| 20 7d 0d 09 09 48 4c 6f | 63 6b 28 48 61 6e 64 6c | }...HLo|ck(Handl|
|00001800| 65 28 6d 79 58 58 58 58 | 29 29 3b 20 09 09 09 09 |e(myXXXX|)); ....|
|00001810| 7b 20 4c 6f 63 6b 20 69 | 74 20 64 6f 77 6e 20 7d |{ Lock i|t down }|
|00001820| 0d 09 09 57 49 54 48 20 | 6d 79 58 58 58 58 5e 5e |...WITH |myXXXX^^|
|00001830| 20 44 4f 0d 09 09 09 42 | 45 47 49 4e 20 0d 09 09 | DO....B|EGIN ...|
|00001840| 09 7b 20 53 69 6e 63 65 | 20 6f 75 72 20 49 44 20 |.{ Since| our ID |
|00001850| 68 61 73 20 63 68 61 6e | 67 65 64 2c 20 77 65 20 |has chan|ged, we |
|00001860| 6e 65 65 64 20 74 6f 20 | 63 68 61 6e 67 65 20 6f |need to |change o|
|00001870| 75 72 20 77 69 6e 64 6f | 77 20 74 69 74 6c 65 20 |ur windo|w title |
|00001880| 7d 0d 09 09 09 47 65 74 | 4e 61 6d 65 41 6e 64 54 |}....Get|NameAndT|
|00001890| 69 74 6c 65 20 28 77 69 | 6e 64 6f 77 54 69 74 6c |itle (wi|ndowTitl|
|000018a0| 65 2c 20 77 69 6e 64 6f | 77 4e 61 6d 65 2c 20 48 |e, windo|wName, H|
|000018b0| 61 6e 64 6c 65 28 68 58 | 58 58 58 29 29 3b 0d 09 |andle(hX|XXX));..|
|000018c0| 09 09 47 65 74 57 69 6e | 64 6f 77 54 69 74 6c 65 |..GetWin|dowTitle|
|000018d0| 20 28 77 69 6e 64 6f 77 | 54 69 74 6c 65 2c 20 77 | (window|Title, w|
|000018e0| 69 6e 64 6f 77 4e 61 6d | 65 2c 20 54 52 55 45 2c |indowNam|e, TRUE,|
|000018f0| 20 66 61 74 68 65 72 29 | 3b 0d 09 09 09 6e 61 6d | father)|;....nam|
|00001900| 65 20 3a 3d 20 77 69 6e | 64 6f 77 4e 61 6d 65 3b |e := win|dowName;|
|00001910| 09 09 09 09 09 09 09 09 | 7b 20 53 61 76 65 20 74 |........|{ Save t|
|00001920| 68 65 20 6e 65 77 20 6e | 61 6d 65 20 69 6e 20 6d |he new n|ame in m|
|00001930| 79 20 64 61 74 61 20 73 | 74 72 75 63 74 75 72 65 |y data s|tructure|
|00001940| 2e 20 7d 0d 09 09 09 53 | 65 74 57 54 69 74 6c 65 |. }....S|etWTitle|
|00001950| 28 77 69 6e 64 2c 20 77 | 69 6e 64 6f 77 74 69 74 |(wind, w|indowtit|
|00001960| 6c 65 29 3b 09 09 09 7b | 20 53 65 74 20 74 68 65 |le);...{| Set the|
|00001970| 20 6e 65 77 20 77 69 6e | 64 6f 77 20 74 69 74 6c | new win|dow titl|
|00001980| 65 2e 20 7d 0d 09 0d 09 | 09 09 7b 20 4e 6f 77 2c |e. }....|..{ Now,|
|00001990| 20 6c 65 74 20 6f 75 72 | 20 66 61 74 68 65 72 20 | let our| father |
|000019a0| 6f 62 6a 65 63 74 20 6b | 6e 6f 77 20 74 68 61 74 |object k|now that|
|000019b0| 20 6f 75 72 20 49 44 20 | 68 61 73 20 62 65 65 6e | our ID |has been|
|000019c0| 20 63 68 61 6e 67 65 64 | 20 7d 0d 09 09 09 66 61 | changed| }....fa|
|000019d0| 74 68 65 72 5e 5e 2e 72 | 65 62 75 69 6c 64 20 3a |ther^^.r|ebuild :|
|000019e0| 3d 20 54 52 55 45 3b 09 | 09 09 09 09 7b 20 52 65 |= TRUE;.|....{ Re|
|000019f0| 62 75 69 6c 64 20 74 68 | 65 20 70 69 63 6b 65 72 |build th|e picker|
|00001a00| 20 6c 69 73 74 2e 20 7d | 0d 09 09 09 43 61 6c 6c | list. }|....Call|
|00001a10| 49 6e 66 6f 55 70 64 61 | 74 65 28 6f 6c 64 49 44 |InfoUpda|te(oldID|
|00001a20| 2c 20 6e 65 77 49 44 2c | 20 4c 4f 4e 47 49 4e 54 |, newID,| LONGINT|
|00001a30| 28 66 61 74 68 65 72 29 | 2c 20 66 61 74 68 65 72 |(father)|, father|
|00001a40| 5e 5e 2e 77 69 6e 64 5e | 2e 77 69 6e 64 6f 77 4b |^^.wind^|.windowK|
|00001a50| 69 6e 64 29 3b 0d 09 09 | 09 45 4e 44 3b 20 7b 20 |ind);...|.END; { |
|00001a60| 57 49 54 48 20 6d 79 58 | 58 58 58 5e 5e 20 7d 0d |WITH myX|XXX^^ }.|
|00001a70| 09 09 48 55 6e 6c 6f 63 | 6b 28 48 61 6e 64 6c 65 |..HUnloc|k(Handle|
|00001a80| 28 6d 79 58 58 58 58 29 | 29 3b 0d 09 09 45 4e 44 |(myXXXX)|);...END|
|00001a90| 3b 20 7b 20 44 6f 49 6e | 66 6f 55 70 64 61 74 65 |; { DoIn|foUpdate|
|00001aa0| 20 7d 0d 0d 09 7b 2d 20 | 2d 09 2d 20 20 2d 20 2d | }...{- |-.-  - -|
|00001ab0| 20 2d 09 2d 20 2d 20 20 | 2d 20 2d 20 2d 09 2d 20 | -.- -  |- - -.- |
|00001ac0| 20 2d 20 2d 09 2d 20 20 | 2d 09 2d 20 2d 20 20 2d | - -.-  |-.- -  -|
|00001ad0| 09 2d 20 2d 20 2d 20 20 | 2d 20 2d 7d 0d 09 09 0d |.- - -  |- -}....|
|00001ae0| 09 46 55 4e 43 54 49 4f | 4e 20 49 73 54 68 69 73 |.FUNCTIO|N IsThis|
|00001af0| 59 6f 75 72 73 20 28 74 | 68 69 6e 67 3a 20 48 61 |Yours (t|hing: Ha|
|00001b00| 6e 64 6c 65 3b 20 6d 79 | 58 58 58 58 3a 72 58 58 |ndle; my|XXXX:rXX|
|00001b10| 58 58 48 61 6e 64 6c 65 | 29 3a 20 42 4f 4f 4c 45 |XXHandle|): BOOLE|
|00001b20| 41 4e 3b 0d 09 0d 09 09 | 42 45 47 49 4e 0d 09 09 |AN;.....|BEGIN...|
|00001b30| 49 73 54 68 69 73 59 6f | 75 72 73 20 3a 3d 20 28 |IsThisYo|urs := (|
|00001b40| 48 61 6e 64 6c 65 28 6d | 79 58 58 58 58 5e 5e 2e |Handle(m|yXXXX^^.|
|00001b50| 68 58 58 58 58 29 20 3d | 20 74 68 69 6e 67 29 3b |hXXXX) =| thing);|
|00001b60| 0d 09 09 45 4e 44 3b 0d | 0d 09 7b 2d 20 2d 09 2d |...END;.|..{- -.-|
|00001b70| 20 20 2d 20 2d 20 2d 09 | 2d 20 2d 20 20 2d 20 2d |  - - -.|- -  - -|
|00001b80| 20 2d 09 2d 20 20 2d 20 | 2d 09 2d 20 20 2d 09 2d | -.-  - |-.-  -.-|
|00001b90| 20 2d 20 20 2d 09 2d 20 | 2d 20 2d 20 20 2d 20 2d | -  -.- |- -  - -|
|00001ba0| 7d 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 44 6f |}...PROC|EDURE Do|
|00001bb0| 4d 65 6e 75 28 4d 65 6e | 75 2c 20 49 74 65 6d 3a |Menu(Men|u, Item:|
|00001bc0| 49 4e 54 45 47 45 52 3b | 20 6d 79 58 58 58 58 3a |INTEGER;| myXXXX:|
|00001bd0| 72 58 58 58 58 48 61 6e | 64 6c 65 29 3b 0d 0d 09 |rXXXXHan|dle);...|
|00001be0| 09 7b 20 43 6c 6f 73 65 | 20 64 6f 77 6e 20 74 68 |.{ Close| down th|
|00001bf0| 65 20 77 69 6e 64 6f 77 | 20 61 6e 64 20 67 65 74 |e window| and get|
|00001c00| 20 72 69 64 20 6f 66 20 | 61 6e 79 20 6d 65 6d 6f | rid of |any memo|
|00001c10| 72 79 20 74 68 61 74 20 | 68 61 73 20 62 65 65 6e |ry that |has been|
|00001c20| 20 61 6c 6c 6f 63 61 74 | 65 64 2e 20 7d 0d 09 09 | allocat|ed. }...|
|00001c30| 7b 20 52 65 74 75 72 6e | 73 20 54 52 55 45 20 69 |{ Return|s TRUE i|
|00001c40| 66 20 74 68 65 20 6f 70 | 65 72 61 74 69 6f 6e 20 |f the op|eration |
|00001c50| 77 61 73 20 73 75 63 63 | 65 73 73 66 75 6c 2e 20 |was succ|essful. |
|00001c60| 49 66 20 6e 6f 74 52 65 | 76 65 72 74 20 69 73 20 |If notRe|vert is |
|00001c70| 66 61 6c 73 65 20 74 68 | 65 20 72 65 73 6f 75 72 |false th|e resour|
|00001c80| 63 65 20 69 73 6e 27 74 | 0d 09 09 09 72 65 6c 65 |ce isn't|....rele|
|00001c90| 61 73 65 64 20 61 6e 64 | 20 74 68 65 20 64 61 74 |ased and| the dat|
|00001ca0| 61 20 68 61 6e 64 6c 65 | 20 69 73 6e 27 74 20 64 |a handle| isn't d|
|00001cb0| 69 73 70 6f 73 65 64 20 | 28 74 68 6f 75 67 68 20 |isposed |(though |
|00001cc0| 61 6c 6c 20 74 68 65 20 | 68 61 6e 64 6c 65 73 20 |all the |handles |
|00001cd0| 69 74 20 63 6f 6e 74 61 | 69 6e 73 0d 09 09 09 61 |it conta|ins....a|
|00001ce0| 72 65 20 64 69 73 70 6f | 73 65 64 29 2e 20 7d 0d |re dispo|sed). }.|
|00001cf0| 09 09 46 55 4e 43 54 49 | 4f 4e 20 44 6f 43 6c 6f |..FUNCTI|ON DoClo|
|00001d00| 73 65 20 28 6e 6f 74 52 | 65 76 65 72 74 3a 20 42 |se (notR|evert: B|
|00001d10| 4f 4f 4c 45 41 4e 29 3a | 20 42 4f 4f 4c 45 41 4e |OOLEAN):| BOOLEAN|
|00001d20| 3b 0d 0d 09 09 09 42 45 | 47 49 4e 0d 09 09 09 50 |;.....BE|GIN....P|
|00001d30| 61 73 73 4d 65 6e 75 28 | 66 69 6c 65 4d 65 6e 75 |assMenu(|fileMenu|
|00001d40| 2c 20 63 6c 6f 73 65 49 | 74 65 6d 2c 20 50 61 72 |, closeI|tem, Par|
|00001d50| 65 6e 74 48 61 6e 64 6c | 65 28 6d 79 58 58 58 58 |entHandl|e(myXXXX|
|00001d60| 29 29 3b 0d 09 09 09 49 | 46 20 57 61 73 41 62 6f |));....I|F WasAbo|
|00001d70| 72 74 65 64 20 54 48 45 | 4e 0d 09 09 09 09 44 6f |rted THE|N.....Do|
|00001d80| 43 6c 6f 73 65 20 3a 3d | 20 46 41 4c 53 45 0d 09 |Close :=| FALSE..|
|00001d90| 09 09 45 4c 53 45 0d 09 | 09 09 09 42 45 47 49 4e |..ELSE..|...BEGIN|
|00001da0| 0d 09 09 09 09 57 49 54 | 48 20 6d 79 58 58 58 58 |.....WIT|H myXXXX|
|00001db0| 5e 5e 20 44 4f 0d 09 09 | 09 09 09 42 45 47 49 4e |^^ DO...|...BEGIN|
|00001dc0| 0d 09 09 09 09 09 43 6c | 6f 73 65 57 69 6e 64 6f |......Cl|oseWindo|
|00001dd0| 77 28 77 69 6e 64 29 3b | 0d 09 09 09 09 09 57 69 |w(wind);|......Wi|
|00001de0| 6e 64 52 65 74 75 72 6e | 28 77 69 6e 64 29 3b 09 |ndReturn|(wind);.|
|00001df0| 09 09 09 09 09 7b 20 4d | 61 72 6b 20 74 68 65 20 |.....{ M|ark the |
|00001e00| 77 69 6e 64 6f 77 20 72 | 65 63 6f 72 64 20 61 73 |window r|ecord as|
|00001e10| 20 62 65 69 6e 67 20 61 | 76 61 69 6c 61 62 6c 65 | being a|vailable|
|00001e20| 20 7d 0d 09 09 09 09 09 | 53 65 74 54 68 65 43 75 | }......|SetTheCu|
|00001e30| 72 73 6f 72 20 28 61 72 | 72 6f 77 43 75 72 73 6f |rsor (ar|rowCurso|
|00001e40| 72 29 3b 20 7b 20 4d 61 | 6b 65 20 73 75 72 65 20 |r); { Ma|ke sure |
|00001e50| 74 68 65 20 63 75 72 73 | 6f 72 20 69 73 20 74 68 |the curs|or is th|
|00001e60| 65 20 61 72 72 6f 77 20 | 63 75 72 73 6f 72 20 7d |e arrow |cursor }|
|00001e70| 0d 09 09 09 09 09 0d 09 | 09 09 09 09 7b 20 44 65 |........|....{ De|
|00001e80| 6c 65 74 65 20 61 6e 79 | 20 6d 65 6e 75 73 20 74 |lete any| menus t|
|00001e90| 68 61 74 20 77 65 20 61 | 64 64 65 64 20 61 6e 64 |hat we a|dded and|
|00001ea0| 20 74 68 65 20 72 65 64 | 72 61 77 20 6d 65 6e 75 | the red|raw menu|
|00001eb0| 20 62 61 72 20 09 7d 0d | 09 09 09 09 09 7b 20 42 | bar .}.|.....{ B|
|00001ec0| 65 20 73 75 72 65 20 74 | 6f 20 64 69 73 70 6f 73 |e sure t|o dispos|
|00001ed0| 65 20 6f 66 20 61 6e 79 | 20 68 61 6e 64 6c 65 73 |e of any| handles|
|00001ee0| 20 79 6f 75 20 61 72 65 | 20 64 6f 6e 65 20 77 69 | you are| done wi|
|00001ef0| 74 68 09 7d 0d 09 09 09 | 09 09 0d 09 09 09 09 09 |th.}....|........|
|00001f00| 7b 20 52 65 6c 65 61 73 | 65 20 74 68 65 20 72 65 |{ Releas|e the re|
|00001f10| 73 6f 75 72 63 65 20 69 | 66 20 77 65 20 77 65 72 |source i|f we wer|
|00001f20| 65 20 6c 61 75 6e 63 68 | 65 64 20 66 72 6f 6d 20 |e launch|ed from |
|00001f30| 61 20 70 69 63 6b 65 72 | 20 7d 0d 09 09 09 09 09 |a picker| }......|
|00001f40| 49 46 20 6e 6f 74 52 65 | 76 65 72 74 20 26 20 72 |IF notRe|vert & r|
|00001f50| 65 73 57 61 73 6e 74 4c | 6f 61 64 65 64 20 26 20 |esWasntL|oaded & |
|00001f60| 28 66 61 74 68 65 72 5e | 5e 2e 77 69 6e 64 6f 77 |(father^|^.window|
|00001f70| 54 79 70 65 20 3c 3e 20 | 65 64 69 74 6f 72 57 69 |Type <> |editorWi|
|00001f80| 6e 64 6f 77 29 20 54 48 | 45 4e 0d 09 09 09 09 09 |ndow) TH|EN......|
|00001f90| 09 52 65 6c 65 61 73 65 | 52 65 73 6f 75 72 63 65 |.Release|Resource|
|00001fa0| 20 28 48 61 6e 64 6c 65 | 28 68 58 58 58 58 29 29 | (Handle|(hXXXX))|
|00001fb0| 3b 20 20 7b 20 4c 65 74 | 20 69 74 20 62 65 20 66 |;  { Let| it be f|
|00001fc0| 72 65 65 20 28 69 66 20 | 69 74 20 69 73 20 6e 6f |ree (if |it is no|
|00001fd0| 74 20 63 68 61 6e 67 65 | 64 29 21 20 7d 0d 09 09 |t change|d)! }...|
|00001fe0| 09 09 09 45 4e 44 3b 20 | 7b 20 57 49 54 48 20 6d |...END; |{ WITH m|
|00001ff0| 79 58 58 58 58 5e 5e 20 | 7d 0d 09 09 09 09 49 46 |yXXXX^^ |}.....IF|
|00002000| 20 6e 6f 74 52 65 76 65 | 72 74 20 54 48 45 4e 0d | notReve|rt THEN.|
|00002010| 09 09 09 09 09 44 69 73 | 70 6f 73 48 61 6e 64 6c |.....Dis|posHandl|
|00002020| 65 28 48 61 6e 64 6c 65 | 28 6d 79 58 58 58 58 29 |e(Handle|(myXXXX)|
|00002030| 29 3b 0d 09 09 09 09 44 | 6f 43 6c 6f 73 65 20 3a |);.....D|oClose :|
|00002040| 3d 20 54 52 55 45 3b 0d | 09 09 09 09 45 4e 44 3b |= TRUE;.|....END;|
|00002050| 0d 09 09 09 45 4e 44 3b | 20 7b 20 44 6f 43 6c 6f |....END;| { DoClo|
|00002060| 73 65 20 7d 0d 0d 09 09 | 42 45 47 49 4e 20 7b 44 |se }....|BEGIN {D|
|00002070| 6f 4d 65 6e 75 7d 0d 09 | 09 42 75 62 62 6c 65 55 |oMenu}..|.BubbleU|
|00002080| 70 28 48 61 6e 64 6c 65 | 28 6d 79 58 58 58 58 29 |p(Handle|(myXXXX)|
|00002090| 29 3b 0d 09 09 48 4c 6f | 63 6b 28 48 61 6e 64 6c |);...HLo|ck(Handl|
|000020a0| 65 28 6d 79 58 58 58 58 | 29 29 3b 0d 09 09 57 49 |e(myXXXX|));...WI|
|000020b0| 54 48 20 6d 79 58 58 58 | 58 5e 5e 20 44 4f 0d 09 |TH myXXX|X^^ DO..|
|000020c0| 09 09 42 45 47 49 4e 0d | 09 09 09 53 65 74 50 6f |..BEGIN.|...SetPo|
|000020d0| 72 74 28 77 69 6e 64 29 | 3b 20 7b 20 53 65 74 20 |rt(wind)|; { Set |
|000020e0| 74 68 65 20 70 6f 72 74 | 20 74 6f 20 6f 75 72 20 |the port| to our |
|000020f0| 77 69 6e 64 6f 77 20 7d | 0d 09 09 09 0d 09 09 09 |window }|........|
|00002100| 7b 20 41 67 61 69 6e 2c | 20 77 65 20 68 61 6e 64 |{ Again,| we hand|
|00002110| 6c 65 20 74 68 65 20 6d | 65 6e 75 20 73 74 75 66 |le the m|enu stuf|
|00002120| 66 20 6a 75 73 74 20 61 | 73 20 77 65 20 77 6f 75 |f just a|s we wou|
|00002130| 6c 64 20 69 6e 20 61 20 | 27 72 65 61 6c 27 20 61 |ld in a |'real' a|
|00002140| 70 70 6c 69 63 61 74 69 | 6f 6e 0d 09 09 09 09 65 |pplicati|on.....e|
|00002150| 78 63 65 70 74 20 74 68 | 61 74 20 77 65 20 6f 6e |xcept th|at we on|
|00002160| 6c 79 20 68 61 76 65 20 | 74 6f 20 68 61 6e 64 6c |ly have |to handl|
|00002170| 65 20 74 68 6f 73 65 20 | 69 74 65 6d 73 20 74 68 |e those |items th|
|00002180| 61 74 20 61 70 70 6c 79 | 20 74 6f 20 6f 75 72 20 |at apply| to our |
|00002190| 65 64 69 74 6f 72 2e 20 | 7d 0d 09 09 09 43 41 53 |editor. |}....CAS|
|000021a0| 45 20 4d 65 6e 75 20 4f | 46 0d 09 09 09 09 66 69 |E Menu O|F.....fi|
|000021b0| 6c 65 4d 65 6e 75 3a 0d | 09 09 09 09 09 43 41 53 |leMenu:.|.....CAS|
|000021c0| 45 20 49 74 65 6d 20 4f | 46 0d 09 09 09 09 09 09 |E Item O|F.......|
|000021d0| 43 6c 6f 73 65 49 74 65 | 6d 3a 0d 09 09 09 09 09 |CloseIte|m:......|
|000021e0| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 09 09 49 |..BEGIN.|.......I|
|000021f0| 46 20 44 6f 43 6c 6f 73 | 65 20 28 54 52 55 45 29 |F DoClos|e (TRUE)|
|00002200| 20 54 48 45 4e 20 09 09 | 09 7b 09 43 6c 6f 73 65 | THEN ..|.{.Close|
|00002210| 20 6f 75 72 20 77 69 6e | 64 6f 77 20 7d 0d 09 09 | our win|dow }...|
|00002220| 09 09 09 09 09 09 45 58 | 49 54 28 44 6f 4d 65 6e |......EX|IT(DoMen|
|00002230| 75 29 3b 20 09 09 09 09 | 09 09 7b 09 52 65 74 75 |u); ....|..{.Retu|
|00002240| 72 6e 20 69 6d 6d 65 64 | 69 61 74 65 6c 79 20 73 |rn immed|iately s|
|00002250| 69 6e 63 65 20 6f 75 72 | 20 72 65 73 6f 75 72 63 |ince our| resourc|
|00002260| 65 20 69 73 20 67 6f 6e | 65 21 09 7d 0d 09 09 09 |e is gon|e!.}....|
|00002270| 09 09 09 09 45 4e 44 3b | 20 7b 20 43 6c 6f 73 65 |....END;| { Close|
|00002280| 49 74 65 6d 20 7d 0d 09 | 09 09 09 09 09 09 0d 09 |Item }..|........|
|00002290| 09 09 09 09 09 73 61 76 | 65 49 74 65 6d 3a 09 09 |.....sav|eItem:..|
|000022a0| 09 09 7b 20 50 61 73 73 | 20 74 68 65 20 73 61 76 |..{ Pass| the sav|
|000022b0| 65 20 6f 6e 20 74 6f 20 | 6f 74 68 65 72 20 77 69 |e on to |other wi|
|000022c0| 6e 64 6f 77 73 2e 20 7d | 0d 09 09 09 09 09 09 09 |ndows. }|........|
|000022d0| 50 61 73 73 4d 65 6e 75 | 28 66 69 6c 65 4d 65 6e |PassMenu|(fileMen|
|000022e0| 75 2c 20 73 61 76 65 49 | 74 65 6d 2c 20 50 61 72 |u, saveI|tem, Par|
|000022f0| 65 6e 74 48 61 6e 64 6c | 65 28 6d 79 58 58 58 58 |entHandl|e(myXXXX|
|00002300| 29 29 3b 0d 09 09 09 09 | 09 09 09 0d 09 09 09 09 |));.....|........|
|00002310| 09 09 70 72 69 6e 74 49 | 74 65 6d 3a 0d 09 09 09 |..printI|tem:....|
|00002320| 09 09 09 09 50 72 69 6e | 74 57 69 6e 64 6f 77 20 |....Prin|tWindow |
|00002330| 28 4e 49 4c 29 3b 0d 09 | 09 09 09 09 09 45 4e 44 |(NIL);..|.....END|
|00002340| 3b 20 7b 20 43 61 73 65 | 20 7d 0d 09 09 09 09 09 |; { Case| }......|
|00002350| 09 0d 09 09 09 09 72 73 | 72 63 4d 65 6e 75 3a 0d |......rs|rcMenu:.|
|00002360| 09 09 09 09 09 43 41 53 | 45 20 69 74 65 6d 20 4f |.....CAS|E item O|
|00002370| 46 0d 09 09 09 09 09 09 | 72 73 72 63 52 65 76 65 |F.......|rsrcReve|
|00002380| 72 74 49 74 65 6d 3a 0d | 09 09 09 09 09 09 09 42 |rtItem:.|.......B|
|00002390| 45 47 49 4e 0d 09 09 09 | 09 09 09 09 49 46 20 4e |EGIN....|....IF N|
|000023a0| 65 65 64 54 6f 52 65 76 | 65 72 74 20 28 77 69 6e |eedToRev|ert (win|
|000023b0| 64 2c 20 48 61 6e 64 6c | 65 28 68 58 58 58 58 29 |d, Handl|e(hXXXX)|
|000023c0| 29 20 54 48 45 4e 0d 09 | 09 09 09 09 09 09 09 42 |) THEN..|.......B|
|000023d0| 45 47 49 4e 0d 09 09 09 | 09 09 09 09 09 7b 20 54 |EGIN....|.....{ T|
|000023e0| 68 65 20 61 72 65 61 20 | 75 6e 64 65 72 20 74 68 |he area |under th|
|000023f0| 65 20 77 69 6e 64 6f 77 | 20 77 69 6c 6c 20 6e 65 |e window| will ne|
|00002400| 65 64 20 74 6f 20 62 65 | 20 75 70 64 61 74 65 64 |ed to be| updated|
|00002410| 20 7d 0d 09 09 09 09 09 | 09 09 09 49 6e 76 61 6c | }......|...Inval|
|00002420| 52 65 63 74 28 77 69 6e | 64 5e 2e 70 6f 72 74 72 |Rect(win|d^.portr|
|00002430| 65 63 74 29 3b 0d 09 09 | 09 09 09 09 09 09 0d 09 |ect);...|........|
|00002440| 09 09 09 09 09 09 09 7b | 20 52 65 61 64 20 69 6e |.......{| Read in|
|00002450| 20 74 68 65 20 6f 6c 64 | 20 63 6f 70 79 20 66 72 | the old| copy fr|
|00002460| 6f 6d 20 64 69 73 6b 20 | 28 73 65 65 20 64 6f 63 |om disk |(see doc|
|00002470| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 72 |umentati|on for r|
|00002480| 65 76 65 72 74 52 65 73 | 6f 75 72 63 65 29 2e 20 |evertRes|ource). |
|00002490| 20 43 6c 65 61 72 20 69 | 74 20 6f 75 74 20 0d 09 | Clear i|t out ..|
|000024a0| 09 09 09 09 09 09 09 09 | 75 6e 6c 65 73 73 20 74 |........|unless t|
|000024b0| 68 69 73 20 20 77 61 73 | 20 61 20 6e 65 77 6c 79 |his  was| a newly|
|000024c0| 20 63 72 65 61 74 65 64 | 20 72 65 73 6f 75 72 63 | created| resourc|
|000024d0| 65 2c 20 69 6e 20 77 68 | 69 63 68 20 63 61 73 65 |e, in wh|ich case|
|000024e0| 20 64 6f 6e 27 74 2e 20 | 7d 0d 09 09 09 09 09 09 | don't. |}.......|
|000024f0| 09 09 49 46 20 4e 4f 54 | 20 52 65 76 65 72 74 54 |..IF NOT| RevertT|
|00002500| 68 69 73 52 65 73 6f 75 | 72 63 65 28 50 61 72 65 |hisResou|rce(Pare|
|00002510| 6e 74 48 61 6e 64 6c 65 | 28 6d 79 58 58 58 58 29 |ntHandle|(myXXXX)|
|00002520| 2c 20 48 61 6e 64 6c 65 | 28 68 58 58 58 58 29 29 |, Handle|(hXXXX))|
|00002530| 20 54 48 45 4e 0d 09 09 | 09 09 09 09 09 09 09 42 | THEN...|.......B|
|00002540| 45 47 49 4e 09 09 7b 20 | 54 68 65 20 72 65 73 6f |EGIN..{ |The reso|
|00002550| 75 72 63 65 20 77 61 73 | 20 6e 65 77 6c 79 20 61 |urce was| newly a|
|00002560| 64 64 65 64 20 73 6f 20 | 77 65 20 6e 65 65 64 20 |dded so |we need |
|00002570| 74 6f 20 72 65 6d 6f 76 | 65 20 69 74 2e 20 7d 09 |to remov|e it. }.|
|00002580| 09 09 09 09 09 09 09 09 | 0d 09 09 09 09 09 09 09 |........|........|
|00002590| 09 09 7b 20 4d 61 6b 65 | 20 73 75 72 65 20 74 68 |..{ Make| sure th|
|000025a0| 61 74 20 74 68 65 20 70 | 69 63 6b 65 72 20 6c 69 |at the p|icker li|
|000025b0| 73 74 20 69 73 20 72 65 | 62 75 69 6c 74 20 74 6f |st is re|built to|
|000025c0| 20 72 65 6d 6f 76 65 20 | 74 68 69 73 20 69 74 65 | remove |this ite|
|000025d0| 6d 2e 20 7d 0d 09 09 09 | 09 09 09 09 09 09 6d 79 |m. }....|......my|
|000025e0| 58 58 58 58 5e 5e 2e 66 | 61 74 68 65 72 5e 5e 2e |XXXX^^.f|ather^^.|
|000025f0| 72 65 62 75 69 6c 64 20 | 3a 3d 20 54 52 55 45 3b |rebuild |:= TRUE;|
|00002600| 0d 09 09 09 09 09 09 09 | 09 09 0d 09 09 09 09 09 |........|........|
|00002610| 09 09 09 09 49 46 20 44 | 6f 43 6c 6f 73 65 20 28 |....IF D|oClose (|
|00002620| 46 41 4c 53 45 29 20 54 | 48 45 4e 09 09 09 09 09 |FALSE) T|HEN.....|
|00002630| 09 09 09 09 09 09 7b 20 | 43 6c 6f 73 65 20 74 68 |......{ |Close th|
|00002640| 65 20 77 69 6e 64 6f 77 | 2e 20 7d 0d 09 09 09 09 |e window|. }.....|
|00002650| 09 09 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |......BE|GIN.....|
|00002660| 09 09 09 09 09 09 52 45 | 52 65 6d 6f 76 65 41 6e |......RE|RemoveAn|
|00002670| 79 52 65 73 6f 75 72 63 | 65 20 28 74 68 65 52 65 |yResourc|e (theRe|
|00002680| 73 46 69 6c 65 2c 20 48 | 61 6e 64 6c 65 20 28 68 |sFile, H|andle (h|
|00002690| 58 58 58 58 29 29 3b 09 | 7b 20 44 69 73 70 6f 73 |XXXX));.|{ Dispos|
|000026a0| 65 20 74 68 65 20 72 65 | 73 6f 75 72 63 65 20 69 |e the re|source i|
|000026b0| 74 73 65 6c 66 2e 20 7d | 0d 09 09 09 09 09 09 09 |tself. }|........|
|000026c0| 09 09 09 44 69 73 70 6f | 73 48 61 6e 64 6c 65 20 |...Dispo|sHandle |
|000026d0| 28 48 61 6e 64 6c 65 28 | 6d 79 58 58 58 58 29 29 |(Handle(|myXXXX))|
|000026e0| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 45 58 49 54 |;.......|....EXIT|
|000026f0| 28 44 6f 4d 65 6e 75 29 | 3b 0d 09 09 09 09 09 09 |(DoMenu)|;.......|
|00002700| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 09 09 09 |....END;|........|
|00002710| 09 09 45 4e 44 3b 20 7b | 49 46 20 4e 4f 54 20 52 |..END; {|IF NOT R|
|00002720| 65 76 65 72 74 52 65 73 | 6f 75 72 63 65 c9 7d 0d |evertRes|ource.}.|
|00002730| 09 09 09 09 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |........|END;....|
|00002740| 09 09 09 09 45 4e 44 3b | 20 7b 20 52 65 76 65 72 |....END;| { Rever|
|00002750| 74 49 74 65 6d 20 7d 0d | 09 09 09 09 09 09 09 0d |tItem }.|........|
|00002760| 09 09 09 09 09 09 72 73 | 72 63 47 65 74 49 6e 66 |......rs|rcGetInf|
|00002770| 6f 49 74 65 6d 3a 0d 09 | 09 09 09 09 09 09 42 45 |oItem:..|......BE|
|00002780| 47 49 4e 0d 09 09 09 09 | 09 09 09 7b 20 50 75 74 |GIN.....|...{ Put|
|00002790| 20 75 70 20 74 68 65 20 | 47 65 74 49 6e 66 6f 20 | up the |GetInfo |
|000027a0| 77 69 6e 64 6f 77 2e 20 | 7d 0d 09 09 09 09 09 09 |window. |}.......|
|000027b0| 09 53 68 6f 77 49 6e 66 | 6f 28 48 61 6e 64 6c 65 |.ShowInf|o(Handle|
|000027c0| 28 68 58 58 58 58 29 2c | 20 50 61 72 65 6e 74 48 |(hXXXX),| ParentH|
|000027d0| 61 6e 64 6c 65 28 6d 79 | 58 58 58 58 29 29 3b 0d |andle(my|XXXX));.|
|000027e0| 09 09 09 09 09 09 09 45 | 4e 44 3b 20 7b 20 47 65 |.......E|ND; { Ge|
|000027f0| 74 49 6e 66 6f 49 74 65 | 6d 20 7d 0d 09 09 09 09 |tInfoIte|m }.....|
|00002800| 09 45 4e 44 3b 20 7b 72 | 73 72 63 6d 65 6e 75 3a |.END; {r|srcmenu:|
|00002810| 20 43 41 53 45 20 49 74 | 65 6d 20 4f 46 7d 0d 09 | CASE It|em OF}..|
|00002820| 09 09 09 45 64 69 74 4d | 65 6e 75 3a 0d 09 09 09 |...EditM|enu:....|
|00002830| 09 09 43 41 53 45 20 49 | 74 65 6d 20 4f 46 0d 09 |..CASE I|tem OF..|
|00002840| 09 09 09 09 09 7b 20 49 | 6d 70 6c 65 6d 65 6e 74 |.....{ I|mplement|
|00002850| 20 74 68 65 20 65 64 69 | 74 20 6d 65 6e 75 20 68 | the edi|t menu h|
|00002860| 65 72 65 2e 20 7d 0d 09 | 09 09 09 09 09 43 75 74 |ere. }..|.....Cut|
|00002870| 49 74 65 6d 3a 20 3b 0d | 09 09 09 09 09 09 43 6f |Item: ;.|......Co|
|00002880| 70 79 49 74 65 6d 3a 20 | 3b 0d 09 09 09 09 09 09 |pyItem: |;.......|
|00002890| 50 61 73 74 65 49 74 65 | 6d 3a 20 3b 0d 09 09 09 |PasteIte|m: ;....|
|000028a0| 09 09 09 43 6c 65 61 72 | 49 74 65 6d 3a 20 3b 0d |...Clear|Item: ;.|
|000028b0| 09 09 09 09 09 45 4e 44 | 3b 20 7b 20 45 64 69 74 |.....END|; { Edit|
|000028c0| 4d 65 6e 75 20 7d 0d 09 | 09 09 09 45 4e 44 3b 20 |Menu }..|...END; |
|000028d0| 7b 20 43 41 53 45 20 4d | 65 6e 75 20 4f 46 20 7d |{ CASE M|enu OF }|
|000028e0| 0d 09 09 09 45 4e 44 3b | 20 7b 20 57 49 54 48 20 |....END;| { WITH |
|000028f0| 6d 79 58 58 58 58 5e 5e | 7d 0d 09 09 48 55 6e 6c |myXXXX^^|}...HUnl|
|00002900| 6f 63 6b 28 48 61 6e 64 | 6c 65 28 6d 79 58 58 58 |ock(Hand|le(myXXX|
|00002910| 58 29 29 3b 0d 09 09 45 | 4e 44 3b 20 7b 44 6f 4d |X));...E|ND; {DoM|
|00002920| 65 6e 75 7d 0d 45 4e 44 | 2e 0d 00 00 00 00 00 00 |enu}.END|........|
|00002930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002980| 00 00 01 00 00 00 01 8c | 00 00 00 8c 00 00 00 52 |........|.......R|
|00002990| 28 73 61 76 65 52 65 66 | 4e 75 6d 29 3b 0d 09 09 |(saveRef|Num);...|
|000029a0| 09 09 20 20 45 4e 44 3b | 20 7b 52 65 76 65 72 74 |..  END;| {Revert|
|000029b0| 0b 58 58 58 58 2e 45 64 | 69 74 2e 70 02 00 00 00 |.XXXX.Ed|it.p....|
|000029c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000029d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000029e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029f0| 00 00 a9 8f d2 6b 00 00 | 00 00 00 00 01 de 4d 79 |.....k..|......My|
|00002a00| 58 58 58 58 29 29 3b 0d | 09 09 09 09 20 20 45 4e |XXXX));.|....  EN|
|00002a10| 44 3b 20 7b 47 65 74 49 | 6e 66 6f 49 74 65 6d 7d |D; {GetI|nfoItem}|
|00002a20| 0d 09 09 09 20 20 45 4e | 44 3b 20 7b 46 69 6c 65 |....  EN|D; {File|
|00002a30| 4d 65 6e 75 3a 20 43 41 | 53 45 20 49 74 65 6d 20 |Menu: CA|SE Item |
|00002a40| 4f 46 7d 0d 09 09 09 45 | 64 69 74 4d 65 6e 75 3a |OF}....E|ditMenu:|
|00002a50| 0d 09 09 09 20 20 43 41 | 53 45 20 49 74 65 6d 20 |....  CA|SE Item |
|00002a60| 4f 46 0d 09 09 09 09 43 | 75 74 49 74 65 6d 3a 20 |OF.....C|utItem: |
|00002a70| 20 20 3b 0d 09 09 09 09 | 43 6f 70 79 49 74 65 6d |  ;.....|CopyItem|
|00002a80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 0a 00 00 |...H..Mo|naco....|
|00002a90| 00 00 0b 04 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002aa0| 00 00 00 00 00 00 00 06 | 00 02 00 2a 00 03 01 42 |........|...*...B|
|00002ab0| 01 e3 00 2a 00 03 01 42 | 01 e3 a4 9f 55 c0 00 00 |...*...B|....U...|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00002ad0| 00 2a 00 03 01 42 01 e3 | 00 2a 00 03 01 42 01 e3 |.*...B..|.*...B..|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 1a 02 11 80 00 00 00 | 05 32 2e 31 2e 31 0d 52 |........|.2.1.1.R|
|00002b00| 65 73 45 64 69 74 20 32 | 2e 31 2e 31 00 00 01 00 |esEdit 2|.1.1....|
|00002b10| 00 00 01 8c 00 00 00 8c | 00 00 00 52 00 22 e8 78 |........|...R.".x|
|00002b20| 04 6a 00 00 00 1c 00 52 | 00 01 4d 50 53 52 00 01 |.j.....R|..MPSR..|
|00002b30| 00 12 76 65 72 73 00 00 | 00 2a 03 ed ff ff 00 00 |..vers..|.*......|
|00002b40| 00 00 00 00 00 00 03 f0 | ff ff 00 00 00 4c 00 00 |........|.....L..|
|00002b50| 00 00 00 02 ff ff 20 00 | 00 6e 00 22 e7 78 00 00 |...... .|.n.".x..|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+